|
1200
|
Is it possible to display the task bars with a gradient color
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","TaskO");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Pattern", 99);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "Color"));
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"TaskO","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Pattern Gradient"),"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"TaskO","1/4/2010","1/9/2010","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1199
|
How can I know the type of bars I can displays using predefined patterns
OBJECT bar,bars,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
bars = _ObjectGetProperty( chart , "Bars");
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "Box") , "Pattern", 32);
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "ThickBox") , "Pattern", 4128);
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "DiagBox") , "Pattern", 4102);
_ObjectSetProperty( _ObjectCallMethod( bars , "Copy", "Task","Shadow") , "Pattern", 8195);
_ObjectSetProperty( _ObjectCallMethod( bars , "Copy", "Task","TShadow") , "Pattern", 12295);
bar = _ObjectCallMethod( bars , "Add", "HGrad1");
_ObjectSetProperty( bar , "Pattern", 32);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", 16711680);
bar = _ObjectCallMethod( bars , "Add", "HGrad2");
_ObjectSetProperty( bar , "Pattern", 35);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", 16711680);
_ObjectSetProperty( bar , "Color", 16711680);
bar = _ObjectCallMethod( bars , "Add", "HGrad3");
_ObjectSetProperty( bar , "Pattern", 163);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Color", 16711680);
bar = _ObjectCallMethod( bars , "Add", "HGrad4");
_ObjectSetProperty( bar , "Pattern", 4256);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Color", 16711680);
bar = _ObjectCallMethod( bars , "Add", "HGrad5");
_ObjectSetProperty( bar , "Pattern", 8352);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", 255);
_ObjectSetProperty( bar , "Color", 16711680);
bar = _ObjectCallMethod( bars , "Add", "VGrad1");
_ObjectSetProperty( bar , "Pattern", 96);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", 16711680);
_ObjectSetProperty( bar , "Height", 14);
bar = _ObjectCallMethod( bars , "Add", "VGrad2");
_ObjectSetProperty( bar , "Pattern", 99);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", 16711680);
_ObjectSetProperty( bar , "Color", 16711680);
_ObjectSetProperty( bar , "Height", 14);
bar = _ObjectCallMethod( bars , "Add", "VGrad3");
_ObjectSetProperty( bar , "Pattern", 227);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Color", 16711680);
_ObjectSetProperty( bar , "Height", 14);
bar = _ObjectCallMethod( bars , "Add", "VGrad4");
_ObjectSetProperty( bar , "Pattern", 4320);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Color", 16711680);
_ObjectSetProperty( bar , "Height", -1);
bar = _ObjectCallMethod( bars , "Add", "VGrad5");
_ObjectSetProperty( bar , "Pattern", 8416);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", 255);
_ObjectSetProperty( bar , "Color", 16711680);
_ObjectSetProperty( bar , "Height", 14);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Box"),"Box","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Thick Box"),"ThickBox","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Thick Box Diag"),"DiagBox","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Shadow"),"Shadow","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Thick Shadow"),"TShadow","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Solid Gradient"),"HGrad1","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Pattern Gradient"),"HGrad2","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Pattern Gradient 3 Colors"),"HGrad3","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Solid Gradient 3 Colors"),"HGrad4","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Gradient Shadow"),"HGrad5","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Solid Gradient"),"VGrad1","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Pattern Gradient"),"VGrad2","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Pattern Gradient 3 Colors"),"VGrad3","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Solid Gradient 3 Colors"),"VGrad4","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Gradient Shadow"),"VGrad5","1/4/2010","1/9/2010","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1198
|
Is it possible to display the bars with a thicker border
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Copy", "Task","TaskB") , "Pattern", 4099);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"TaskB","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1197
|
Is it possible to display the shadow for EBN bars
OBJECT bar,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Copy", "Task","EBN");
_ObjectSetProperty( bar , "Color", 16777216);
_ObjectSetProperty( bar , "Pattern", 8192);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Copy", "Task","EBN2") , "Color", 16777216);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"EBN2","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"EBN","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"EBN2","1/2/2001","1/5/2001","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1196
|
Can I display a shadow for my bars
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Task`).Pattern = 8195");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1195
|
How can I use the Color property for gradient bars
OBJECT bar,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Add", "V");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Pattern", 224);
_ObjectSetProperty( bar , "Height", -1);
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Add", "H");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Pattern", 160);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"V","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"H","1/2/2001","1/5/2001","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1194
|
Is there any option to show bars with vertical gradient
OBJECT bar,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", 65535);
_ObjectSetProperty( bar , "Pattern", 96);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");
|
|
1193
|
How can I define a new milestone bar
OBJECT bar,bars,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
bars = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars");
_ObjectCallMethod( bars , "AddShapeCorner", 12345,1);
_ObjectCallMethod( bars , "AddShapeCorner", 12346,2);
_ObjectSetProperty( _ObjectCallMethod( bars , "Copy", "Milestone","M1") , "StartShape", 12345);
_ObjectSetProperty( _ObjectCallMethod( bars , "Copy", "Milestone","M2") , "StartShape", 12346);
bar = _ObjectCallMethod( bars , "Copy", "Milestone","MP");
_ObjectSetProperty( bar , "StartShape", 20);
_ObjectSetProperty( bar , "StartColor", 255);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Default"),"Milestone","1/2/2001","1/2/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Predefined"),"MP","1/3/2001","1/3/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Custom 1"),"M1","1/4/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Custom 2"),"M2","1/5/2001","1/5/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1192
|
How can I define my milestone bar, using my icons or pictures
OBJECT bars,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
bars = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars");
_ObjectCallMethod( bars , "AddShapeCorner", 12345,1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bars)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Item(`Milestone`).StartShape = 12345");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Milestone","1/2/2001","1/2/2001");
|
|
1191
|
Is it possible to specify manually non-working days instead using the NonworkingDays as being repetitive
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).DrawGridLines = True");
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectCallMethod( chart , "AddNonworkingDate", "1/10/2010");
_ObjectCallMethod( chart , "AddNonworkingDate", "1/11/2010");
_ObjectCallMethod( chart , "AddNonworkingDate", "1/15/2010");
_ObjectCallMethod( chart , "AddNonworkingDate", "1/16/2010");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1190
|
Is it possible to hide specific days
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).DrawGridLines = True");
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "NonworkingDays", 128);
_ObjectCallMethod( chart , "AddNonworkingDate", "1/10/2010");
_ObjectCallMethod( chart , "AddNonworkingDate", "1/11/2010");
_ObjectCallMethod( chart , "AddNonworkingDate", "1/15/2010");
_ObjectCallMethod( chart , "AddNonworkingDate", "1/16/2010");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1189
|
Is it possible to show or display the marked zones ONLY in the overview part of the control
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/14/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/3/2001","1/4/2001",_ObjectGetProperty( chart , "BackColor"),";;Zone <b>1</b>");
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","2/6/2001","2/7/2001",_ObjectGetProperty( chart , "BackColor"),";;Zone <b>2</b>");
_ObjectCallMethod( chart , "MarkTimeZone", "Z3","1/16/2001","1/19/2001",_ObjectGetProperty( chart , "BackColor"),";;Zone <b>3</b>");
_ObjectSetProperty( chart , "OverviewShowMarkTimeZones", -1);
_ObjectSetProperty( chart , "OverviewBackColor", 15790300);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/5/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","2/5/2001","2/8/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1188
|
Is it possible to show or display the marked zones in the overview part of the control
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/14/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/3/2001","1/4/2001",16777056);
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","2/6/2001","2/7/2001",16744544);
_ObjectCallMethod( chart , "MarkTimeZone", "Z3","1/16/2001","1/19/2001",16744544);
_ObjectSetProperty( chart , "OverviewShowMarkTimeZones", -1);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/5/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","2/5/2001","2/8/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1187
|
Is there a quick way to determine if a bar belongs to a group
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/5/2001","1/7/2001","K3");
_ObjectCallMethod( items , "GroupBars", h1,"K1",-1,h2,"K2",-1);
_ObjectCallMethod( items , "GroupBars", h1,"K1",0,h2,"K2",0);
_ObjectCallMethod( items , "GroupBars", h1,"K1",-1,h3,"K3",-1);
_ObjectCallMethod( items , "GroupBars", h1,"K1",0,h3,"K3",0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`K1`,522)") );
|
|
1186
|
I am using the ScrollRange property to limit the chart's visible area, but it does not work as expected. What could be wrong
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 56");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ScrollRange(0) = #1/1/100#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ScrollRange(1) = #12/31/9999#");
_ObjectSetProperty( chart , "FirstVisibleDate", "4/28/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ScrollPartCaption(2,512) = Chart.ScrollRange(0)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ScrollPartCaptionAlignment(2,512) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ScrollPartCaption(2,128) = Chart.ScrollRange(1)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ScrollPartCaptionAlignment(2,128) = 2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1185
|
Are you planning to add a AddNonworkingDate / AddNonworkingDay for separate items
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "AllowChartScrollPage", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Non-Work");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "4/4/2009");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 52");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(AddItem(`Test 1`),False) = `shortdate(value) in (#4/5/2009#,#4/6/2009#)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(AddItem(`Test 2`),False) = `shortdate(value) in (#4/6/2009#,#4/7/2009#)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(AddItem(`Test 3`),False) = `shortdate(value) in (#4/7/2009#,#4/9/2009#)`");
_ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1184
|
How can I enlarge the EBN being applied to an object
OBJECT appearance,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 32);
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 2,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( appearance , "Add", 1,"CP:2 -3 -2 3 2");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2002");
_ObjectSetProperty( chart , "SelBarColor", 16777216);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2002","1/4/2002","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/6/2002","1/10/2002","B");
_ObjectCallMethod( items , "AddBar", h,"Task","1/11/2002","1/14/2002","C");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,257) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1183
|
I am using EBN to display my bars but the bars shows in black in the overview area. Is there any option to specify a different color in the overview part of the control
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Color = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/11/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001",1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,1,41) = 8821418");
_ObjectCallMethod( items , "AddBar", h,"Task","2/2/2001","2/4/2001",2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,2,41) = 8821418");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","2/2/2001","2/4/2001","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,41) = 8821418");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1182
|
I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%d%> <%mmmm%> <%yyyy%> <%ww%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%dddd%> <%d%> <%mmmm%> <%yyyy%>`");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "MonthNames", "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre");
_ObjectSetProperty( chart , "WeekDays", "domenica lunedì martedì mercoledì giovedì venerdì sabato");
_ObjectSetProperty( chart , "ToolTip", "<%dddd%> <%d%> <%mmmm%> <%yyyy%>");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1181
|
I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%d%> <%mmmm%> <%yyyy%> <%ww%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%dddd%> <%d%> <%mmmm%> <%yyyy%>`");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "MonthNames", "januari februari maart april mei juni juli augusts september oktober november december");
_ObjectSetProperty( chart , "WeekDays", "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag");
_ObjectSetProperty( chart , "ToolTip", "<%dddd%> <%d%> <%mmmm%> <%yyyy%>");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1180
|
I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area (method 1)
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%d%>.<%mmmm%> <%yyyy%> <%ww%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>`");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "MonthNames", "Januar Februar März April Mai Juni Juli August September Oktober November Dezember");
_ObjectSetProperty( chart , "WeekDays", "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag");
_ObjectSetProperty( chart , "ToolTip", "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1179
|
I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%d%> <%mmmm%> <%yyyy%> <%ww%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%dddd%> <%d%> <%mmmm%> <%yyyy%>`");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "MonthNames", "janvier février mars avril mai juin juillet août septembre octobre novembre décembre");
_ObjectSetProperty( chart , "WeekDays", "dimanche lundi mardi mercredi jeudi vendredi samedi");
_ObjectSetProperty( chart , "ToolTip", "<%dddd%> <%d%> <%mmmm%> <%yyyy%>");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1178
|
How can I determine the last visible date in the chart
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
Message( "First" );
Message( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate") );
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
Message( "Last" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.DateFromPoint(1,-1)") );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1177
|
How can I filter programatically using more columns
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Car");
_ObjectCallMethod( columns , "Add", "Equipment");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Mazda`),1) = `Air Bag`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Toyota`),1) = `Air Bag,Air condition`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Ford`),1) = `Air condition`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Nissan`),1) = `Air Bag,ABS,ESP`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Mazda`),1) = `Air Bag, ABS,ESP`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Mazda`),1) = `ABS,ESP`");
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`Car`)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Mazda");
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`Equipment`)");
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "*ABS*|*ESP*");
_ObjectCallMethod( g2antt , "ApplyFilter");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1176
|
Do you have scheduling functionality in Gantt (meaning scheduling several activities (bars) depending on their start and finish dates with considering dependencies to other activities
// BarResize event - Occurs when a bar is moved or resized.
FUNCTION g2anttEvents_BarResize(OBJECT g2antt, INT Item, VARIANT Key)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "SchedulePDM", Item,Key);
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Working`).Def(18) = 258");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/4/2001","");
_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","");
_ObjectCallMethod( items , "AddLink", "L2",h2,"",h3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `FF`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,6) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,7) = 2");
h4 = _ObjectCallMethod( items , "AddItem", "Task 4");
_ObjectCallMethod( items , "AddBar", h4,"Task","1/2/2001","1/4/2001","");
_ObjectCallMethod( items , "AddLink", "L3",h4,"",h3,"");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,20) = True");
_ObjectCallMethod( items , "SchedulePDM", _ObjectGetProperty( items , "FirstVisibleItem"),"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1175
|
How can I show the ticks for a single slider field
OBJECT editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Slider") , "Editor") , "EditType", 20);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", 10);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(20),0)");
_ObjectSetProperty( editor , "EditType", 20);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(53) = 10");
_ObjectCallMethod( items , "AddItem", 30);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1174
|
Is it possible to show ticks for slider fields
OBJECT editor,g2antt;
g2antt = ObjectByName("AN1") ;
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Slider") , "Editor");
_ObjectSetProperty( editor , "EditType", 20);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(53) = 10");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddItem", 10);
|
|
1173
|
How can I group two bars so the distance between them is limited to a specified range
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/24/2006");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Unknown","9/25/2006","9/28/2006");
_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
_ObjectCallMethod( items , "GroupBars", h1,"",0,h2,"",-1,31,"1;2");
Message( "The distance between A and B is limited between 1 and 3 days" );
Message( "The B is always after the A" );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1172
|
How can I group two bars so the distance between them is flexible but never less than a specified value
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/24/2006");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Unknown","9/26/2006","9/29/2006");
_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
_ObjectCallMethod( items , "GroupBars", h1,"",0,h2,"",-1,39,"2");
Message( "The distance between A and B is never less than 2 days" );
Message( "The B is always after the A" );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1171
|
How can I group two bars so the distance between them is flexible
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/24/2006");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Unknown","9/26/2006","9/29/2006");
_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
_ObjectCallMethod( items , "GroupBars", h1,"",0,h2,"",-1,39);
Message( "The distance between A and B is flexible, unlimited" );
Message( "The B is always after the A" );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1170
|
How can I group two bars so the interval between them is fixed
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","9/21/2006","9/24/2006","T1","A");
_ObjectCallMethod( items , "AddBar", h,"Unknown","9/26/2006","9/29/2006","T2","B");
_ObjectCallMethod( items , "AddLink", "L",h,"T1",h,"T2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L`,258) = 27");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L`,11) = False");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Unknown","9/26/2006","9/29/2006","T2","B");
_ObjectCallMethod( items , "AddLink", "L2",h,"T1",h2,"T2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,258) = 27");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,11) = False");
Message( "The distance between bars is constant" );
Message( "The B is always after the A" );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1169
|
How can I group two bars when linking, so moving the first bar will makes the second to move accordingly
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/24/2006","","A");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Unknown","9/26/2006","9/29/2006","","B");
_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,258) = 39");
Message( "The distance between A and B is flexible, unlimited" );
Message( "The B is always after the A" );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1168
|
Is it possible to be notified when the user clicks an anchor element a hyperlink in the date-time zone
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION g2anttEvents_AnchorClick(OBJECT g2antt, STRING AnchorID, STRING Options)
Message( "Click: " );
Message( AnchorID );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectCallMethod( chart , "MarkTimeZone", "Z","1/2/2001","1/5/2001",15753471,";32;Caption <a1><b>1</b></a>;1;Caption <a2><b>2</b></a>;17;Caption <a3><b>3</b></a>");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1167
|
Is it possible to be notified when the user clicks a date-time zone
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
FUNCTION g2anttEvents_Click()
OBJECT chart;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
Message( "Click: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.TimeZoneFromPoint(-1,-1)") );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectCallMethod( chart , "MarkTimeZone", "Z","1/2/2001","1/5/2001",16711680,";32;DATE-TIME<br> ZONE");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1166
|
Is is possible to display multiple captions in the same date-time zone
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectCallMethod( chart , "MarkTimeZone", "Z","1/5/2001","1/8/2001",12895487,";;Caption <b>1</b>;1;Caption <b>2</b>;17;Caption <b>3</b>");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1165
|
Is is possible to align on the top the caption for the date-time zone
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectCallMethod( chart , "MarkTimeZone", "Z","1/5/2001","1/8/2001",12895487,";;UpperCenter;1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1164
|
Is there any option to display a picture on the date-time zone
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "HTMLPicture(`pic1`) = `c:\exontrol\images\card.png`");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectCallMethod( chart , "MarkTimeZone", "Z","1/5/2001","1/8/2001",12895487,";;<c><img>pic1</img><br><c>picture");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1163
|
Is there any option to display a text or a HTML caption on the date-time zone
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/1/2001","1/4/2001",12895487,";;zone <b>1</b>");
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","1/5/2001","1/8/2001",12895487,";;zone <b>2</b>");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1162
|
How can I display the date-time zone using a semi-transparent EBN object
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/2/2001","1/3/2001",16777056,";;Solid");
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","1/7/2001","1/10/2001",16777216,"50;;EBN");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/8/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1161
|
How can I display the date-time zone using an EBN or a skin instead a solid color
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/2/2001","1/3/2001",16777056,";;Solid");
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","1/5/2001","1/8/2001",16777216,";;EBN");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/8/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1160
|
How can I display the date-time zone using a pattern instead a solid color
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/2/2001","1/3/2001",16777056,";;Solid");
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","1/6/2001","1/7/2001",16777056,";12;Pattern");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/8/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1159
|
How can I display the date-time zone using a transparent color
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/2/2001","1/3/2001",16777056,";;Opaque");
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","1/6/2001","1/7/2001",16777056,"50;;Semi-Transparent");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/8/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1158
|
The date time zone is shown behind the bars, is there any way to show it over
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/2/2001","1/3/2001",16777056);
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","1/6/2001","1/7/2001",16777056,"1");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/8/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1157
|
How can I get ifnromation about a date-time zone
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
OBJECT chart;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.TimeZoneInfo(TimeZoneFromPoint(-1,-1))") );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 18");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/4/2010","1/8/2010",16744544);
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","1/12/2010","1/18/2010",16761952);
|
|
1156
|
How can I determine the zone from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
OBJECT chart;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.TimeZoneFromPoint(-1,-1)") );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 18");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/4/2010","1/8/2010",16744544);
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","1/12/2010","1/18/2010",16761952);
|
|
1155
|
How can I highlight multiple date-time zones (ranges)
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 18");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/4/2010","1/8/2010",16744544);
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","1/12/2010","1/18/2010",16761952);
|
|
1154
|
How can I highlight a date-time range
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 18");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/4/2010","1/8/2010",16744544);
|
|
1153
|
How do I get the list of selected date
// ChartEndChanging event - Occurs after the chart has been changed.
FUNCTION g2anttEvents_ChartEndChanging(OBJECT g2antt, INT Operation)
Message( Operation );
Message( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "SelectDates") );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
|
|
1152
|
Is there any function I can use to find the bars that intersect with the current bar
// BarResizing event - Occurs when a bar is moving or resizing.
FUNCTION g2anttEvents_BarResizing(OBJECT g2antt, INT Item, VARIANT Key)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item,Key")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod(g2antt, "TemplatePut", Key)
Message( Key );
Message( "intesect with" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(Item,Key,520)") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).OverlaidType = 1");
_ObjectSetProperty( chart , "ResizeUnitScale", 65536);
_ObjectSetProperty( chart , "AllowCreateBar", 1);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","A1","A1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/3/2001","1/5/2001","A2","A2");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/4/2001","1/7/2001","A3","A3");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1151
|
Is it possible to order the bars on top of other bars
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","NTask") , "OverlaidType", 1);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","A1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/3/2001","1/5/2001","A2");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/4/2001","1/7/2001","A3");
h2 = _ObjectCallMethod( items , "AddItem", "Overlaid");
_ObjectCallMethod( items , "AddBar", h2,"NTask","1/2/2001","1/4/2001","A1");
_ObjectCallMethod( items , "AddBar", h2,"NTask","1/3/2001","1/5/2001","A2");
_ObjectCallMethod( items , "AddBar", h2,"NTask","1/4/2001","1/7/2001","A3");
_ObjectCallMethod( items , "GroupBars", h1,"A1",-1,h2,"A1",-1);
_ObjectCallMethod( items , "GroupBars", h1,"A1",0,h2,"A1",0);
_ObjectCallMethod( items , "GroupBars", h1,"A2",-1,h2,"A2",-1);
_ObjectCallMethod( items , "GroupBars", h1,"A2",0,h2,"A2",0);
_ObjectCallMethod( items , "GroupBars", h1,"A3",-1,h2,"A3",-1);
_ObjectCallMethod( items , "GroupBars", h1,"A3",0,h2,"A3",0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1150
|
Is it possible to order the bars on top of other bars (have different colurs so that they can be seen)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","NTask") , "OverlaidType", 515);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","A1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/3/2001","1/5/2001","A2");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/4/2001","1/7/2001","A3");
h2 = _ObjectCallMethod( items , "AddItem", "Overlaid");
_ObjectCallMethod( items , "AddBar", h2,"NTask","1/2/2001","1/4/2001","A1");
_ObjectCallMethod( items , "AddBar", h2,"NTask","1/3/2001","1/5/2001","A2");
_ObjectCallMethod( items , "AddBar", h2,"NTask","1/4/2001","1/7/2001","A3");
_ObjectCallMethod( items , "GroupBars", h1,"A1",-1,h2,"A1",-1);
_ObjectCallMethod( items , "GroupBars", h1,"A1",0,h2,"A1",0);
_ObjectCallMethod( items , "GroupBars", h1,"A2",-1,h2,"A2",-1);
_ObjectCallMethod( items , "GroupBars", h1,"A2",0,h2,"A2",0);
_ObjectCallMethod( items , "GroupBars", h1,"A3",-1,h2,"A3",-1);
_ObjectCallMethod( items , "GroupBars", h1,"A3",0,h2,"A3",0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1149
|
Is it possible to layer bars on top of other bars (have different colurs so that they can be seen)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","NTask") , "OverlaidType", 1);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","A1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/3/2001","1/5/2001","A2");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/4/2001","1/7/2001","A3");
h2 = _ObjectCallMethod( items , "AddItem", "Overlaid");
_ObjectCallMethod( items , "AddBar", h2,"NTask","1/2/2001","1/4/2001","A1");
_ObjectCallMethod( items , "AddBar", h2,"NTask","1/3/2001","1/5/2001","A2");
_ObjectCallMethod( items , "AddBar", h2,"NTask","1/4/2001","1/7/2001","A3");
_ObjectCallMethod( items , "GroupBars", h1,"A1",-1,h2,"A1",-1);
_ObjectCallMethod( items , "GroupBars", h1,"A1",0,h2,"A1",0);
_ObjectCallMethod( items , "GroupBars", h1,"A2",-1,h2,"A2",-1);
_ObjectCallMethod( items , "GroupBars", h1,"A2",0,h2,"A2",0);
_ObjectCallMethod( items , "GroupBars", h1,"A3",-1,h2,"A3",-1);
_ObjectCallMethod( items , "GroupBars", h1,"A3",0,h2,"A3",0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1148
|
My skin(EBN) bars are not shown a different color in the overview. What can I do
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Color = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/11/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001",1);
_ObjectCallMethod( items , "AddBar", h,"Task","2/2/2001","2/4/2001",2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,2,33) = 16776960");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","2/2/2001","2/4/2001","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1147
|
How do I colour the lines in the overview section to match the bars they represent on the main chart
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001",1);
_ObjectCallMethod( items , "AddBar", h,"Task","2/2/2001","2/4/2001",2);
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","2/2/2001","2/4/2001","");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1146
|
How do I catch the delete key (down) on a bar
// KeyDown event - Occurs when the user presses a key while an object has the focus.
FUNCTION g2anttEvents_KeyDown(OBJECT g2antt, INT KeyCode, INT Shift)
Message( KeyCode );
Message( Shift );
END
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/27/2000");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Pattern", 32);
_ObjectSetProperty( bar , "Height", 13);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K1","This is a bit of text that is not clipped");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K1","This is a bit of text that get's clipped");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,4) = 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,6) = ItemBar(h,`K1`,3)");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1145
|
Is it possible to colour a particular column, I mean the cell's foreground color
OBJECT columns,conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "1");
_ObjectSetProperty( conditionalformat , "ForeColor", 255);
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod( columns , "Add", "Column 2");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(0),1) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(2),1) = 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(4),1) = 5");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1144
|
Is it possible to colour a particular column for specified values
OBJECT columns,conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "int(%1) in (3,4,5)");
_ObjectSetProperty( conditionalformat , "BackColor", 255);
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod( columns , "Add", "Column 2");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(0),1) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(2),1) = 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(4),1) = 5");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1143
|
Is it possible to colour a particular column
OBJECT columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", columns)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Add(`Column 2`).Def(4) = 255");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(0),1) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(2),1) = 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(4),1) = 5");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1142
|
How do i get all the children items that are under a certain parent Item handle
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "P");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
hChild = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemChild(FirstVisibleItem)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(hChild,0)") );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(NextSiblingItem(hChild),0)") );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1141
|
How can I access the control's scroll bar so I can change its appearance
OBJECT g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 0");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(388) = 16777216");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1140
|
How can I show my bars using the parts of the current theme
OBJECT appearance,bars,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"XP:Button 1 1");
_ObjectCallMethod( appearance , "Add", 2,"XP:Button 1 2");
_ObjectCallMethod( appearance , "Add", 3,"XP:ScrollBar 3 1");
_ObjectCallMethod( appearance , "Add", 4,"XP:ScrollBar 3 2");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
bars = _ObjectGetProperty( chart , "Bars");
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "B1") , "Color", 16777216);
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "B2") , "Color", 33554432);
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "S1") , "Color", 50331648);
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "S2") , "Color", 67108864);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Button1"),"B1","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Button 2"),"B2","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Scrollbar 1"),"S1","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Scrollbar 2"),"S2","1/2/2001","1/4/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1139
|
How do I hide the text on a bar if the text is to big for the bar length
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/27/2000");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Pattern", 32);
_ObjectSetProperty( bar , "Height", 13);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K1","This is a bit of text that is not clipped");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K1","This is a bit of text that get's clipped");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,4) = 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,6) = ItemBar(h,`K1`,3)");
|
|
1138
|
Is it possible to change the color for non-working parts of the bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectSetProperty( chart , "NonworkingDaysColor", 15792880);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/16/2001");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/16/2001","");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,40) = 65280");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1137
|
Is it possible to change the color for the percent bar being displayed inside a specified bar only
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Add", "Task%Progress");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task%Progress","1/2/2001","1/6/2001","K1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,12) = 0.4");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task%Progress","1/2/2001","1/6/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,12) = 0.5");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,39) = 255");
|
|
1136
|
How do I get a handle on the item before adding the bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End") , "Visible", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 0");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = #9/21/2006#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2) = #9/24/2006#");
_ObjectCallMethod( items , "AddBar", h1,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2)"));
h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1) = #9/25/2006#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2) = #9/28/2006#");
_ObjectCallMethod( items , "AddBar", h2,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2)"));
h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h3")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h3)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1) = #9/29/2006#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2) = #10/2/2006#");
_ObjectCallMethod( items , "AddBar", h3,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2)"));
_ObjectCallMethod( items , "AddItem", _ObjectGetProperty( items , "ItemCount"));
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1135
|
Is there an Items method that I can use to loop around to compare the item's user data against
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(InsertItem(h,,`Child 2`)) = 1234");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBold(FindItemData(1234)) = True");
|
|
1134
|
How do I make the tooltip box wider to allow for longer text
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "ToolTipWidth", 328);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,6) = `This is a bit of text that's displayed when the cursor hovers the bar`");
|
|
1133
|
How do i set the default timeslots to say hours or minutes
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
_ObjectSetProperty( chart , "OverviewZoomUnit", 24);
_ObjectSetProperty( chart , "OverviewZoomCaption", "Y|½Y|¼Y|Mo|T|W|D|H|Mi|S");
_ObjectSetProperty( chart , "UnitScale", 1048576);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/16/2001","1/25/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 4"),"Task","2/16/2001","2/25/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1132
|
Can I use icons or images in the text in the overview zoom buttons (Sec., Min., Hour, Month...)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
_ObjectSetProperty( chart , "OverviewZoomUnit", 24);
_ObjectSetProperty( chart , "OverviewHeight", 58);
_ObjectSetProperty( chart , "OverviewZoomCaption", "Y<br>e<br>a<br>r|½Y|¼Y|M<br>o<br>n<br>t<br>h|T|W<br>e<br>e<br>w|<img>pic1:28<img>|H<br>o<br>u<br>r|M<br>i<br>n|S<br>e<br>c");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/16/2001","1/25/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 4"),"Task","2/16/2001","2/25/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1131
|
Can I use icons or images in the text in the overview zoom buttons (Sec., Min., Hour, Month...)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
_ObjectSetProperty( chart , "OverviewZoomUnit", 24);
_ObjectSetProperty( chart , "OverviewZoomCaption", "Y|½Y|¼Y|<img>2<img>|T|W|<img>1<img>|H|M|S");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/16/2001","1/25/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 4"),"Task","2/16/2001","2/25/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1130
|
How do I change (for localisation) the text in the buttons like (Sec., Min., Hour, Month...)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
_ObjectSetProperty( chart , "OverviewZoomUnit", 24);
_ObjectSetProperty( chart , "OverviewZoomCaption", "Y|½Y|¼Y|Mo|T|W|D|H|Mi|S");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/16/2001","1/25/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 4"),"Task","2/16/2001","2/25/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1129
|
How I can change the Months and Weekdays
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "FirstVisibleDate", "2/1/2010");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitWidth", 10);
_ObjectSetProperty( chart , "MonthNames", "1 2 3 4 5 6 7 8 9 10 11 12");
_ObjectSetProperty( chart , "WeekDays", "A B C D E F G");
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%mmmm%>");
_ObjectSetProperty( level , "Unit", 16);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Label", "<font ;6><%ddd%>");
_ObjectSetProperty( level , "Unit", 4096);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1128
|
How do i get the current window time frame (the start and end) of the gantt chart
// DateChange event - Occurs when the first visible date is changed.
FUNCTION g2anttEvents_DateChange()
OBJECT chart;
chart = _ObjectGetProperty( g2antt , "Chart");
Message( "Start" );
Message( _ObjectGetProperty( chart , "FirstVisibleDate") );
Message( "" );
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
Message( "End" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.DateFromPoint(PaneWidth(True),0)") );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 1");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod( chart , "ScrollTo", "1/1/2010",0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1127
|
When I use this Chart.get_DateFromPoint(exg2antt1.Width, 0) I get date as 0, 30/12/1899, or 12:00:00 AM. What that means
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.DateFromPoint(-1,-1)") );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "LevelCount", 2);
|
|
1126
|
How do I enable grabing bars to other items/rows (and only enable them to be dropped on certain rows)
// BarParentChange event - Occurs just before moving a bar from current item to another item.
FUNCTION g2anttEvents_BarParentChange(OBJECT g2antt, INT Item, VARIANT Key, INT NewItem, INT Cancel)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,NewItem")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", NewItem)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.CellCaption(NewItem,0)") );
Cancel = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemData(NewItem)");
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).OverlaidType = 257");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.EnableItem(h) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(h) = -1");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(h) = 0");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,28) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(AddItem(`Item 3`)) = 0");
h = _ObjectCallMethod( items , "AddItem", "Item 4");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.EnableItem(h) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(h) = -1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1125
|
How can I find out if a date time is a non-working part
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(g2antt, "TemplatePut", c)
_ObjectCallMethod(g2antt, "TemplatePut", hit)
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
d = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.DateFromPoint(-1,-1)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,d,h")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
_ObjectCallMethod(g2antt, "TemplatePut", d)
_ObjectCallMethod(g2antt, "TemplatePut", h)
Message( d );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.IsNonworkingDate(d,h)") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "NonWorking");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/24/2008");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Default");
h = _ObjectCallMethod( items , "AddItem", "January");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `month(value) = 1`");
h = _ObjectCallMethod( items , "AddItem", "February, Saturday, Sunday");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `month(value) = 2 or (weekday(value) = 0 or weekday(value) = 6)`");
h = _ObjectCallMethod( items , "AddItem", "Sunday");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) = 0`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1124
|
I am using the ItemBar property exBarCanMoveToAnother, How do I stop it from being dropped on certain chart rows
// BarParentChange event - Occurs just before moving a bar from current item to another item.
FUNCTION g2anttEvents_BarParentChange(OBJECT g2antt, INT Item, VARIANT Key, INT NewItem, INT Cancel)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,NewItem")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", NewItem)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.CellCaption(NewItem,0)") );
Cancel = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemData(NewItem)");
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).OverlaidType = 257");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.EnableItem(h) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(h) = -1");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(h) = 0");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,28) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(AddItem(`Item 3`)) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(AddItem(`Item 4`)) = 0");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1123
|
What is the event I should use to capture the click event on the task item on left hand side
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
FUNCTION g2anttEvents_Click()
_ObjectCallMethod(g2antt, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(g2antt, "TemplatePut", c)
_ObjectCallMethod(g2antt, "TemplatePut", hit)
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,c,h")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", c)
_ObjectCallMethod(g2antt, "TemplatePut", h)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.CellCaption(h,c)") );
END
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1122
|
Can I add a hyperlink assigned to a bar
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION g2anttEvents_AnchorClick(OBJECT g2antt, STRING AnchorID, STRING Options)
Message( AnchorID );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,3) = `default`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,3) = `<a1><b>A 1</b></a>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
h = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,3) = `<a2><b>A 2</b></a>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1121
|
Can I change the background color only for the text (caption) in a bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,3) = `default`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,3) = `using <bgcolor=FF0000>bgcolor</bgcolor> HTML attribute `");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1120
|
Can I change the font to display the text (caption) in a bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,3) = `default`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,3) = `<font Segoe UI;8 >using font HTML attribute </fgcolor>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1119
|
How do i change the forecolor of text (caption) in a bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,3) = `default`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,3) = `<fgcolor=FF0000>using fgcolor HTML attribute </fgcolor>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
h = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,3) = `using exBarForeColor`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,8) = 65280");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1118
|
I have noticed that when scrolling horizontally the chart a tooltip shown. is it possible to actually do the scrolling without showing the tooltip
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectSetProperty( chart , "ToolTip", "");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/25/2005","A");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/28/2005","7/2/2005","B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1117
|
How can I add a bar to be treated as a nonworking part like a "holidays" bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowNonworkingBars", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) in (0,6)`");
_ObjectCallMethod( items , "AddBar", h,"","1/2/2001","1/5/2001","A","holyday");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,38) = True");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/12/2001","Z");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`Z`,20) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1116
|
Is it possible to add bars that act like a non-working fixed part or the item
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowNonworkingBars", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) in (0,6)`");
_ObjectCallMethod( items , "AddBar", h,"","1/3/2001","1/6/2001","h","holyday");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`h`,38) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`h`,29) = False");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1115
|
Is it possible to add bars that act like a non-working part or the item
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowNonworkingBars", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) in (0,6)`");
_ObjectCallMethod( items , "AddBar", h,"","1/3/2001","1/6/2001","h","holyday");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`h`,38) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1114
|
How can I change the both dates for the bar at once
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/21/2005");
_ObjectSetProperty( chart , "ShowEmptyBars", 1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Test");
_ObjectCallMethod( items , "AddBar", h,"Task","6/22/2005","6/26/2005","");
_ObjectCallMethod( items , "AddBar", h,"Task","6/27/2005","6/29/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1113
|
How can I get the selected bars in the chart
// ChartSelectionChanged event - Occurs when the user selects objects in the chart area.
FUNCTION g2anttEvents_ChartSelectionChanged()
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.SelectedObjects(1)") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/25/2005","A");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/28/2005","7/2/2005","B");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(FirstVisibleItem,FirstItemBar(FirstVisibleItem),257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1112
|
How can I list the actions that can be performed by undo operations
// ChartEndChanging event - Occurs after the chart has been changed.
FUNCTION g2anttEvents_ChartEndChanging(OBJECT g2antt, INT Operation)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.UndoListAction()") );
END
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "AllowLinkBars", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Task`).OverlaidType = 257");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "AllowUndoRedo", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 32");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001","A");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/9/2001","B");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,28) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,20) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(AddItem(`Item 3`),False) = `weekday(value)=0`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(AddItem(`Item 4`),False) = `weekday(value) in (3,5)`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1111
|
How can I change the predefined labels being displayed in the chart's header so it shows the data in short format with no literals
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "LevelCount", 3);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(0) = `<%yy%><|><%yyyy%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(1) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(2) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(16) = `<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(17) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = `<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(1048576) = `<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(16777216) = `<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(0) = `<%yyyy%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(1) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(2) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(16) = `<%m%>/<%yyyy%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(17) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%m%>/<%d%>/<%yyyy%> <%ww%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%m%>/<%d%>/<%yyyy%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(65536) = `<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(1048576) = `<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(16777216) = `<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1110
|
The histogram does not show (correctly) the bars, even if I changed the Bar.HistogramPattern and Bar.HistogramColor properties. What can be wrong
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/27/2000");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 32);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", 6);
_ObjectSetProperty( bar , "HistogramColor", 255);
_ObjectSetProperty( chart , "ResizeUnitScale", 65536);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001 8:00:00 AM","1/2/2001 12:00:00 PM");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/1/2001 8:00:00 AM","1/5/2001 12:00:00 PM");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1109
|
How can I change the default key for the newly added link from "Link1" to my identifier
// AddLink event - Occurs when the user links two bars using the mouse.
FUNCTION g2anttEvents_AddLink(OBJECT g2antt, STRING LinkKey)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,LinkKey")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", LinkKey)
_ObjectCallMethod( items , "AddLink", "newIDlink",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(LinkKey,0)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(LinkKey,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(LinkKey,2)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(LinkKey,3)"));
_ObjectCallMethod( items , "RemoveLink", LinkKey);
END
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.LinkFromPoint(-1,-1)") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/25/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/28/2005","7/2/2005","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1108
|
How can I change the default key for the newly added link from "Link1" to my identifier
// AllowLink event - Notifies at runtime when a link between two bars is possible.
FUNCTION g2anttEvents_AllowLink(OBJECT g2antt, INT StartItem, VARIANT StartBarKey, INT EndItem, VARIANT EndBarKey, VARIANT LinkKey, INT Cancel)
LinkKey = "newIDlink";
END
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.LinkFromPoint(-1,-1)") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/25/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/28/2005","7/2/2005","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1107
|
We want to have a Task ID column as the first column that shows the row number. How can we do that
// FormatColumn event - Fired when a cell requires to format its caption.
FUNCTION g2anttEvents_FormatColumn(OBJECT g2antt, INT Item, INT ColIndex, VARIANT Value)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", Item)
Value = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemPosition(Item)");
END
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "Width", 24);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "FireFormatColumn", -1);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Task A");
_ObjectCallMethod( items , "AddItem", "Task B");
_ObjectCallMethod( items , "AddItem", "Task C");
_ObjectCallMethod( items , "AddItem", "Task D");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1106
|
How can I get the caption of focused item
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION g2anttEvents_SelectionChanged()
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
Message( "Handle" );
Message( _ObjectGetProperty( items , "FocusItem") );
Message( "Caption" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellCaption(FocusItem,0)") );
END
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1105
|
How can I get the caption of selected item
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION g2anttEvents_SelectionChanged()
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
Message( "Handle" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectedItem(0)") );
Message( "Caption" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellCaption(SelectedItem(0),0)") );
END
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1104
|
How can I get the link from the point
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.LinkFromPoint(-1,-1)") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/29/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `L1`");
h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `L2`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1103
|
How can I get the bar from the point
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/29/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/4/2001","1/6/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1102
|
How can I get the level from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.LevelFromPoint(-1,-1)") );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/25/2010");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 4);
|
|
1101
|
How can I get the date from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.DateFromPoint(-1,-1)") );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
|